Carregando os pacotes
list_of_packages <- c("tidyverse", "readxl", "here", "janitor", "DT")
new_packages <- list_of_packages[!(list_of_packages %in% installed.packages()[,"Package"])]
if(length(new_packages)) install.packages(new_packages)
suppressPackageStartupMessages(library(tidyverse))
library(readxl)
library(here)
library(janitor)
library(DT)
Código
ordem <-
readxl::read_xlsx(path = here::here("data", "Dados planilha.xlsx"),
sheet = 1) %>%
janitor::clean_names() %>%
pull(ordem_dos_dados)
data <-
readxl::read_xlsx(path = here::here("data", "Dados planilha.xlsx"),
sheet = 2) %>%
dplyr::rename(list_6 = `List 6`) %>%
dplyr::arrange(factor(list_6, levels = ordem))
Aqui o resultado
data %>%
DT::datatable(extensions = 'Buttons',
options = list(dom = 'Blfrtip',
buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
lengthMenu = list(c(10,25,50,-1),
c(10,25,50,"All"))))